home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / util / rexx / ole1v10a.lha / OLE_System / Switch < prev   
Encoding:
Text File  |  1995-02-10  |  396 b   |  24 lines
  1. /*
  2.  * Switch
  3.  *
  4.  * USAGE: Switch
  5.  *
  6.  * This let user to launch the execution of the OLE Server in background.
  7.  * If it is already running then simply shut down it.
  8.  *
  9.  * $(C): (1995, Rocco Coluccelli, Bologna)
  10.  * $VER: Switch 1.00 (09.Feb.1995)
  11.  */
  12.  
  13. serverport = 'OLE_SERVER'
  14.  
  15.     IF SHOW('P',serverport) THEN DO
  16.         ADDRESS VALUE serverport
  17.         QUIT
  18.         END
  19.  
  20.     ELSE
  21.         ADDRESS AREXX "'CALL OLE()'"
  22.  
  23. EXIT 0
  24.